MODULE EscribeRecursivamente ;
	FROM InOut IMPORT WriteInt ;
	PROCEDURE Escribe( N : INTEGER ) ;
		BEGIN
			IF N = 0 THEN RETURN END ;
				Escribe( N-1 ) ;
				WriteInt( N, 1)
		END Escribe ;
	BEGIN
		Escribe( 2) ;
END EscribeRecursivamente.